home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / s_to_z / t_rex10 / trexdm01.dfm / trexdm01.txt
Text File  |  1996-09-15  |  3KB  |  129 lines
  1. object Form1: TForm1
  2.   Left = 177
  3.   Top = 102
  4.   Width = 434
  5.   Height = 234
  6.   Caption = 'T-Rex Demo Program'
  7.   Font.Color = clBlack
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 13
  13.   object Bevel1: TBevel
  14.     Left = 24
  15.     Top = 8
  16.     Width = 377
  17.     Height = 101
  18.   end
  19.   object Bevel2: TBevel
  20.     Left = 24
  21.     Top = 148
  22.     Width = 377
  23.     Height = 53
  24.   end
  25.   object Label2: TLabel
  26.     Left = 32
  27.     Top = 152
  28.     Width = 361
  29.     Height = 25
  30.     Alignment = taCenter
  31.     AutoSize = False
  32.     WordWrap = True
  33.   end
  34.   object Label1: TLabel
  35.     Left = 32
  36.     Top = 12
  37.     Width = 361
  38.     Height = 41
  39.     AutoSize = False
  40.     Caption = 
  41.       'This demo program illustrates one use of the T-Rex component. It' +
  42.       ' scans a Pascal source file that you specify and reports on the ' +
  43.       'proportion of lines that consist entirely of comments.'
  44.     WordWrap = True
  45.   end
  46.   object Label3: TLabel
  47.     Left = 32
  48.     Top = 52
  49.     Width = 361
  50.     Height = 29
  51.     AutoSize = False
  52.     Caption = 
  53.       'This demo uses SeekEoln to skip to the next line after a match. ' +
  54.       'We suggest that you initially turn Break on Exception off. Other' +
  55.       'wise the IDE will report the'
  56.     WordWrap = True
  57.   end
  58.   object Gauge1: TGauge
  59.     Left = 32
  60.     Top = 180
  61.     Width = 361
  62.     Height = 16
  63.     Progress = 0
  64.   end
  65.   object Label4: TLabel
  66.     Left = 32
  67.     Top = 78
  68.     Width = 361
  69.     Height = 29
  70.     AutoSize = False
  71.     Caption = 
  72.       'ESeekEoln exception, which is not an error, inconveniently many ' +
  73.       'times. Do this in Options | Environment | Preferences | Debuggin' +
  74.       'g.'
  75.     WordWrap = True
  76.   end
  77.   object Button1: TButton
  78.     Left = 24
  79.     Top = 116
  80.     Width = 105
  81.     Height = 25
  82.     Caption = 'Specify &Input File'
  83.     TabOrder = 0
  84.     OnClick = Button1Click
  85.   end
  86.   object Button2: TButton
  87.     Left = 160
  88.     Top = 116
  89.     Width = 105
  90.     Height = 25
  91.     Caption = '&Scan'
  92.     Enabled = False
  93.     TabOrder = 1
  94.     OnClick = Button2Click
  95.   end
  96.   object BitBtn1: TBitBtn
  97.     Left = 296
  98.     Top = 116
  99.     Width = 105
  100.     Height = 25
  101.     TabOrder = 2
  102.     Kind = bkClose
  103.   end
  104.   object Rex1: TRex
  105.     MatchPattern.Strings = (
  106.       '^ *({[^}]*} *)+$'
  107.       '^ *{[^}]*$'
  108.       '{[^}]*$'
  109.       '} *$'
  110.       '}')
  111.     InputSeparator = '\w'
  112.     LineSeparator = '\l'
  113.     OnBOF = Rex1BOF
  114.     OnEOF = Rex1EOF
  115.     BeforeLineMatch = Rex1BeforeLineMatch
  116.     AfterLineMatch = Rex1AfterLineMatch
  117.     OnMatch = Rex1Match
  118.     Left = 8
  119.   end
  120.   object OpenDialog1: TOpenDialog
  121.     DefaultExt = 'pas'
  122.     Filter = 
  123.       'Pascal source (*.pas)|*.pas|Text files (*.txt)|*.txt|All files (' +
  124.       '*.*)|*.*'
  125.     Options = [ofPathMustExist, ofFileMustExist]
  126.     Left = 48
  127.   end
  128. end
  129.